home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / demo / sound / tp_austr.lha / Australia-install / ASCII-Edit / Examples / Scripts&ASCII / Fades < prev    next >
Text File  |  1992-02-26  |  2KB  |  86 lines
  1. ;Fade in...
  2.  
  3. SETFONT topaz 8
  4.  
  5. IF NOT Exists C:SetRGB
  6.   ECHO "First you must install the SetRGB tool!"
  7.   WAIT 2
  8.   ENDCLI
  9. ENDIF
  10. IF NOT Exists Fade.ASCII
  11.   ECHO "Can't open the Fade.ASCII file!"
  12.   WAIt 2
  13.   ENDCLI
  14. ENDIF
  15.  
  16. COPY C:SetRGB RAM:
  17. COPY Fade.ASCII RAM:
  18.  
  19. RAM:
  20. SetRGB >NIL: RESET
  21. SetRGB >NIL: 4,9,9,9 9,9,9 9,9,9 9,9,9
  22.  
  23. TYPE Fade.ASCII
  24.  
  25. ;fade in colour 4 to 7 one by one...
  26. C:
  27. SetRGB >NIL: 4,8,8,8
  28. SetRGB >NIL: 4,7,7,7
  29. SetRGB >NIL: 4,6,6,6
  30. SetRGB >NIL: 4,5,5,5
  31. SetRGB >NIL: 4,4,4,4
  32. SetRGB >NIL: 4,3,3,3
  33. SetRGB >NIL: 4,2,2,2
  34. SetRGB >NIL: 4,1,1,1
  35. SetRGB >NIL: 4,0,0,0
  36.  
  37. SetRGB >NIL: 5,8,8,8
  38. SetRGB >NIL: 5,7,7,7
  39. SetRGB >NIL: 5,6,6,6
  40. SetRGB >NIL: 5,5,5,5
  41. SetRGB >NIL: 5,4,4,4
  42. SetRGB >NIL: 5,3,3,3
  43. SetRGB >NIL: 5,2,2,2
  44. SetRGB >NIL: 5,1,1,1
  45. SetRGB >NIL: 5,0,0,0
  46.  
  47. SetRGB >NIL: 6,8,8,8
  48. SetRGB >NIL: 6,7,7,7
  49. SetRGB >NIL: 6,6,6,6
  50. SetRGB >NIL: 6,5,5,5
  51. SetRGB >NIL: 6,4,4,4
  52. SetRGB >NIL: 6,3,3,3
  53. SetRGB >NIL: 6,2,2,2
  54. SetRGB >NIL: 6,1,1,1
  55. SetRGB >NIL: 6,0,0,0
  56.  
  57. SetRGB >NIL: 7,8,8,8
  58. SetRGB >NIL: 7,7,7,7
  59. SetRGB >NIL: 7,6,6,6
  60. SetRGB >NIL: 7,5,5,5
  61. SetRGB >NIL: 7,4,4,4
  62. SetRGB >NIL: 7,3,3,3
  63. SetRGB >NIL: 7,2,2,2
  64. SetRGB >NIL: 7,1,1,1
  65. SetRGB >NIL: 7,0,0,0
  66.  
  67. WAIT 3
  68.  
  69. ;Fade out all colours at ones...
  70. SetRGB >NIL: 4,1,1,1 1,1,1 1,1,1 1,1,1
  71. SetRGB >NIL: 4,2,2,2 2,2,2 2,2,2 2,2,2
  72. SetRGB >NIL: 4,3,3,3 3,3,3 3,3,3 3,3,3
  73. SetRGB >NIL: 4,4,4,4 4,4,4 4,4,4 4,4,4
  74. SetRGB >NIL: 4,5,5,5 5,5,5 5,5,5 5,5,5
  75. SetRGB >NIL: 4,6,6,6 6,6,6 6,6,6 6,6,6
  76. SetRGB >NIL: 4,7,7,7 7,7,7 7,7,7 7,7,7
  77. SetRGB >NIL: 4,8,8,8 8,8,8 8,8,8 8,8,8
  78. SetRGB >NIL: 4,9,9,9 9,9,9 9,9,9 9,9,9
  79.  
  80. WAIT 3
  81. ECHO "*ec"
  82. SetRGB >NIL: RESET
  83.  
  84. DELETE >NIL: RAM:Fade.ASCII
  85. DELETE >NIL: RAM:SetRGB
  86.